COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "TEST5"
C00009 ENDMK
C⊗;
BEGIN "TEST5"
	REQUIRE "ABBREV[SYS,BGB]" SOURCE_FILE;
	REQUIRE "GEOMES.HDR" SOURCE_FILE;
	REQUIRE "REFACE" LOAD_MODULE;
	ITG B1;STRING STR;
	EXTERNAL ITG SUBR REFACE(INTEGER B,N);

	GEONIT;
	OUTSTR(9&"GEM FILE =");STR←INCHWL;B1←IGEM(STR);
	IF STR="H" THEN ICAM("TMP");GEODPY;
	B1 ← REFACE(B1,20);
	GEODPY;INCHRW;
	WHILE TRUE DO ⊂ ROTATE(B1,0,π/36,0);GEODPY;⊃;

END "TEST5"; BGB 24 JANUARY 1974.